home *** CD-ROM | disk | FTP | other *** search
/ Night Owl 9 / Night Owl CD-ROM (NOPV9) (Night Owl Publisher) (1993).ISO / 008a / feb93cad.zip / TIP842.LSP < prev    next >
Text File  |  1993-01-14  |  1KB  |  82 lines
  1. ;TIP842: CH_LT-CL.LSP (C)1993, PAUL J. MUTSCHLER
  2.  
  3. (defun ch_lt-cl (/ ss1 ss_len n_ame)
  4. (SETVAR "CMDECHO" 0)
  5. (setq ss1(ssget))
  6. (setq ss_len(sslength ss1))
  7. (setq i 0)
  8.   (repeat ss_len
  9.    (setq n_ame(ssname ss1 i))
  10.    (command "chprop"  n_ame "" d_ec cr_lt "")
  11.    (setq i(+ 1 i))
  12.   )
  13.  (princ)
  14. )
  15. (defun c:rdd ()
  16. (setq cr_lt "red"
  17.       d_ec "C")
  18. (ch_lt-cl)
  19. )
  20. (defun c:yel ()
  21. (setq cr_lt "yellow"
  22.       d_ec "C")
  23. (ch_lt-cl)
  24. )
  25. (defun c:grn ()
  26. (setq cr_lt "green"
  27.       d_ec "C")
  28. (ch_lt-cl)
  29. )
  30. (defun c:cy ()
  31. (setq cr_lt "cyan"
  32.       d_ec "C")
  33. (ch_lt-cl)
  34. )
  35. (defun c:bl ()
  36. (setq cr_lt "blue"
  37.       d_ec "C")
  38. (ch_lt-cl)
  39. )
  40. (defun c:mag ()
  41. (setq cr_lt "magenta"
  42.       d_ec "C")
  43. (ch_lt-cl)
  44. )
  45. (defun c:byb ()
  46. (setq cr_lt "byblock"
  47.       d_ec "C")
  48. (ch_lt-cl)
  49. )
  50. (defun c:by ()
  51. (setq cr_lt "bylayer"
  52.       d_ec "LT")
  53. (ch_lt-cl)
  54. )
  55. (defun c:ctr ()
  56. (setq cr_lt "center"
  57.       d_ec "LT")
  58. (ch_lt-cl)
  59. )
  60. (defun c:pht ()
  61. (setq cr_lt "phantom"
  62.       d_ec "LT")
  63. (ch_lt-cl)
  64. )
  65. (defun c:hd ()
  66. (setq cr_lt "hidden"
  67.       d_ec "LT")
  68. (ch_lt-cl)
  69. )
  70. (defun c:ddt ()
  71. (setq cr_lt "dashdot"
  72.       d_ec "LT")
  73. (ch_lt-cl)
  74. )
  75. (defun c:bdr ()
  76. (setq cr_lt "border"
  77.       d_ec "LT")
  78. (ch_lt-cl)
  79. )
  80.  
  81.  
  82.